home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ Shortcut 2.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-03-31  |  1.3 KB  |  41 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Files&Folders\Shortcuts"
  5. "NAME"="Shortcut Prefix"
  6. "VERSION"="1.50"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Use prefix "Shortcut to..." for new shortcuts"
  9. "DESCRIPTION 1"="Normally, Windows adds the text "Shortcut to" to any new shortcut you create."
  10. "DESCRIPTION 2"="If you do not like this, deactivate this option."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="see also MS KB Q253212"
  15. "COMMENT 2"="Thanks to Siegfried Burgstedt (siegfried.burgstedt@gmx.net)"
  16. "COMMENT 3"="Thanks to David Goodenough (dpg@ix.netcom.com) for the Win95 fix"
  17. "COMMENT 4"="Thanks to Danny Kohn [danny.kohn@systematik.se] for the <delete> fix"
  18. "COMMENT 5"="Thanks to Sergey Parunov [psnsergey@mail.primorye.ru] for the final fix."
  19.  
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Link"
  21.  
  22. Sub Plugin_Initialize
  23.  s=RegReadValue(sP)
  24.  if IsEmpty(s) or s="30000000" then
  25.   SetUIElement 1, true
  26.  end if
  27. End Sub
  28.  
  29. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  30.  if GetUIElement(1) then
  31.   if RegValueExists(sP) then
  32.    RegDeleteValue sP
  33.   end if
  34.  else
  35.   RegWriteValue sP,"00000000",3
  36.  end if
  37.  Logoff
  38. End Sub
  39.  
  40. Sub Plugin_Terminate
  41. End Sub